﻿Public Class RH_funcionario
    Inherits Abstract_Object

    Public Sub New(Optional ByVal load_ad As Integer = -1)

        Me.defineAttributes()
        Me.table = "horas"

    End Sub

    Private Sub defineAttributes()

        Me.attCollection = New Abstract_Attribute_Collection
        Me.attCollection.newAttInstance("nome", "text")
        Me.attCollection.newAttInstance("numero", "float")
        Me.attCollection.newAttInstance("equipe", "float")
        Me.attCollection.newAttInstance("status", "text")
        Me.attCollection.newAttInstance("admissao", "date")
        Me.attCollection.newAttInstance("demissao", "date")
        Me.attCollection.newAttInstance("ausenciainicio", "date")
        Me.attCollection.newAttInstance("ausenciafim", "date")

    End Sub

End Class
